home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / foss11b3.zip / DEVELOP / APIINT.PAS next >
Pascal/Delphi Source File  |  1996-05-20  |  14KB  |  280 lines
  1. unit ApiInt;
  2.  
  3. interface
  4. uses
  5.   types;
  6.  
  7. {----------------------------------------------------------------------------}
  8. function  dllVer             : string; far;
  9. procedure dllInit            (     path : string;
  10.                                    node : Byte ); far; { path = FOSS/2-root path }
  11. {----------------------------------------------------------------------------}
  12. function  fioReadMainCfg     ( var cfg : TSysCfg )
  13.                              : Boolean; far;
  14. procedure fioWriteMainCfg    ( var cfg : TSysCfg ); far;
  15. {----------------------------------------------------------------------------}
  16. function  fioReadNodeCfg     ( var cfg : TNodeCfg;
  17.                                    pos : LongInt )
  18.                              : Boolean; far;
  19. procedure fioWriteNodeCfg    ( var cfg : TNodeCfg;
  20.                                var pos : LongInt); far;
  21. procedure fioDelNodeCfg; far;
  22. function  fioGetNodeCnt      : LongInt; far;
  23. {----------------------------------------------------------------------------}
  24. function  fioReadAreaCfg     ( var cfg : TAreaCfg;
  25.                                    pos : LongInt ) : Boolean; far;
  26. function  fioFindAreaCode    ( var cfg : TAreaCfg;
  27.                                    code : string;
  28.                                    pos : LongInt )
  29.                              : Boolean; far;
  30. function  fioFindAreaName    ( var cfg : TAreaCfg;
  31.                                    name : string;
  32.                                    pos : LongInt ) : LongInt; far;
  33. procedure fioWriteAreaCfg    ( var cfg : TAreaCfg;
  34.                                    pos : LongInt ); far;
  35. {----------------------------------------------------------------------------}
  36. function  fioReadEventCfg    ( var cfg : TEventCfg;
  37.                                    pos : LongInt )
  38.                              : Boolean; far;
  39. procedure fioWriteEventCfg   ( var cfg : TEventCfg;
  40.                                var pos : LongInt ); far;
  41. procedure fioDelEventCfg     (     pos : LongInt ); far;
  42. {----------------------------------------------------------------------------}
  43. function  fioReadLocalUsr    ( var usr : TUser;
  44.                                    pos : LongInt )
  45.                              : Boolean; far;
  46. function  fioFindLocalUsr    ( var usr : TUser;
  47.                                    name : string;
  48.                                var pos : LongInt )
  49.                              : Boolean; far;
  50. procedure fioWriteLocalUsr   ( var usr : TUser;
  51.                                var pos : LongInt ); far;
  52. function  fioGetLocalUsrCnt  : LongInt; far;
  53.  
  54. function  fioReadNetAddr     (     pos : LongInt;
  55.                                var area : TAreaCfg )
  56.                              : string; far;
  57. function  fioWriteNetAddr    (     name : string;
  58.                                var area : TAreaCfg )
  59.                              : LongInt; far;
  60. {----------------------------------------------------------------------------}
  61. function  fioReadUsrAreaReg  ( var reg : TAreaUserStat;
  62.                                var area : TAreaCfg;
  63.                                    pos : LongInt )
  64.                              : Boolean; far;
  65. procedure fioWriteUsrAreaReg ( var reg : TAreaUserStat;
  66.                                var area : TAreaCfg;
  67.                                var pos : LongInt ); far;
  68. {----------------------------------------------------------------------------}
  69. function  fioReadMsgHeader   ( var mhd : TMessageHeader;
  70.                                var area : TAreaCfg;
  71.                                    pos : LongInt )
  72.                              : Boolean; far;
  73. function  fioFindMsgNo       ( var mhd : TMessageHeader;
  74.                                var area : TAreaCfg;
  75.                                    no : LongInt )
  76.                              : Boolean; far;
  77. function  fioFindNextMsg     ( var mhd : TMessageHeader;
  78.                                var area : TAreaCfg )
  79.                              : Boolean; far;
  80. function  fioFindPrevMsg     ( var mhd : TMessageHeader;
  81.                                var area : TAreaCfg )
  82.                              : Boolean; far;
  83. procedure fioReadMsgBuf      ( var mhd : TMessageHeader;
  84.                                var area : TAreaCfg;
  85.                                    ptr : PMsgBuffer ); far;
  86. procedure fioReadMsgStatus   ( var area : TAreaCfg;
  87.                                var reg : TAreaUserStat;
  88.                                var usr : TUser;
  89.                                var last,
  90.                                    newall,
  91.                                    newyou : LongInt ); far;
  92. procedure fioWriteMsgHeader  ( var mhd : TMessageHeader;
  93.                                var area : TAreaCfg;
  94.                                var pos : LongInt ); far;
  95. procedure fioUpdateMsgHeader ( var mhd : TMessageHeader;
  96.                                var area : TAreaCfg ); far;
  97. procedure fioWriteMsg        ( var mhd : TMessageHeader;
  98.                                var area : TAreaCfg;
  99.                                    ptr : PMsgBuffer ); far;
  100. {----------------------------------------------------------------------------}
  101. function  fioReadDirCfg      ( var cfg : TAreaDirCfg;
  102.                                var area : TAreaCfg;
  103.                                    pos : LongInt )
  104.                              : Boolean; far;
  105. function  fioFindDirNo       ( var cfg : TAreaDirCfg;
  106.                                    no : LongInt;
  107.                                var area : TAreaCfg;
  108.                                    pos : LongInt )
  109.                              : Boolean; far;
  110. function  fioFindDirName     ( var cfg : TAreaDirCfg;
  111.                                    name : string;
  112.                                var area : TAreaCfg;
  113.                                    pos : LongInt )
  114.                              : Boolean; far;
  115. procedure fioWriteDirCfg     ( var cfg : TAreaDirCfg;
  116.                                var area : TAreaCfg;
  117.                                var pos : LongInt); far;
  118. {----------------------------------------------------------------------------}
  119. function  fioReadFileRec     ( var frec : TDirFile;
  120.                                var area : TAreaCfg;
  121.                                var rpos : LongInt )
  122.                              : Boolean;
  123. procedure fioWriteFileRec    ( var frec : TDirFile;
  124.                                var area : TAreaCfg;
  125.                                var rpos : LongInt );
  126. {----------------------------------------------------------------------------}
  127. function  fioGetNodeStatus   ( var stat : TNodeStat;
  128.                                    node : Word )
  129.                              : Boolean; far;
  130.  
  131. { ========================================================================= }
  132. { fioGetNodeMsg         Check if there are any node messages waiting
  133.  
  134.   INPUT:  none
  135.   OUTPUT: msg           First incoming node message if any
  136.   RETURN: TRUE          One node message returned in msg
  137.           FALSE         No incoming node messages
  138. { ========================================================================= }
  139. function  fioGetNodeMsg      ( var msg : TNodeMsg )
  140.                              : Boolean; far;
  141.  
  142. { ========================================================================= }
  143. { fioSendNodemsg        Send a node message
  144.  
  145.   INPUT:  msg           message record of message to send
  146.           node          node to send message to
  147.   OUTPUT: none
  148.   RETURN: none
  149. { ========================================================================= }
  150. procedure fioSendNodeMsg     ( var msg : TNodeMsg;
  151.                                    node : Integer ); far;
  152.  
  153. { ========================================================================= }
  154. { fioStampLog           Write a line of information to the system log file
  155.                         or one of the nodes log files.
  156.  
  157.   INPUT:  txt           text string to write to log file
  158.           node          number of node the log entry is for
  159.                         -1 = current node
  160.                         -2 = system log (log display to system at login)
  161.   OUTPU